DEFINITION MODULE Path;

FROM AmigaDOS	IMPORT	FileLock;

PROCEDURE PathName(lock : FileLock; VAR dest : ARRAY OF CHAR): BOOLEAN;
(* returns the full AmigaDOS directory/file path given:

   lock - a FileLock on a directory or file
   dest - destination string for the path

   result:  TRUE  = success   full path is in dest
	    FALSE = failure   check IoErr() for more information
	    
   If the dest string is not large enough to accommodate the full path
   name, the path will be truncated  *)
	    
END Path.
